home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / extraurb / mi105.dir / 00040_Script_40 < prev    next >
Text File  |  1983-01-30  |  504b  |  20 lines
  1. on enterframe
  2.   cursor 4
  3.   sound close 1
  4.   vit 7
  5. end
  6. on exitframe
  7.   global pallina_chiusa,audio_barrato,lista_en_viaggio,canale_audio,audio_intro,canale_pallina,viff_da,viff_a,pallina_aperta,dove_articolo
  8.   global audio,pallina,dove,a_blocca,a_blocca
  9.   
  10.   spegni_canali
  11.   if dove <> dove_articolo+1 then
  12.     set dove to 0
  13.     set a_blocca to false
  14.   end if
  15.   set audio to audio_barrato
  16.   set pallina to pallina_aperta
  17.   viff viff_da,viff_a
  18.   gestione_cursori   -- ex curan e curap
  19. end
  20.